Beginning Mac Programming

home *** CD-ROM | disk | FTP | other *** search
/ Beginning Mac Programming / Beginning Mac Programming.bin / pc / Open Me for REALbasic 3 / REALbasic 3.2 / Goodies / Development Tools / XCMDs and XFCNs / User Interface / Menu Bar Magic / MenuBarMagic < prev
Unknown | 1998-10-25 | 1.4 KB
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was not able to be converted.
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type	Support
`100%`	file	data	default
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 06 4d 6f 64 75 6c 65 0c | 4d 65 6e 75 42 61 72 4d |.Module.|MenuBarM|
|00000010| 61 67 69 63 ad 01 9d 02 | b9 0c ad 07 05 00 0c 4d |agic....|.......M|
|00000020| 65 6e 75 42 61 72 4d 61 | 67 69 63 1c 00 03 12 69 |enuBarMa|gic....i|
|00000030| 73 49 6e 69 74 65 64 20 | 41 73 20 53 74 72 69 6e |sInited |As Strin|
|00000040| 67 00 14 63 75 72 72 53 | 74 61 74 75 73 20 41 73 |g..currS|tatus As|
|00000050| 20 53 74 72 69 6e 67 00 | 17 6f 72 67 4d 42 61 72 | String.|.orgMBar|
|00000060| 48 65 69 67 68 74 20 41 | 73 20 53 74 72 69 6e 67 |Height A|s String|
|00000070| 00 05 10 49 6e 69 74 4d | 65 6e 75 42 61 72 4d 61 |...InitM|enuBarMa|
|00000080| 67 69 63 00 00 00 03 1f | 03 1f 07 16 53 75 62 20 |gic.....|....Sub |
|00000090| 49 6e 69 74 4d 65 6e 75 | 42 61 72 4d 61 67 69 63 |InitMenu|BarMagic|
|000000a0| 28 29 91 01 69 66 20 28 | 69 73 49 6e 69 74 65 64 |()..if (|isInited|
|000000b0| 20 3c 3e 20 22 59 65 73 | 22 29 20 61 6e 64 20 28 | <> "Yes|") and (|
|000000c0| 63 75 72 72 53 74 61 74 | 75 73 20 3c 3e 20 22 53 |currStat|us <> "S|
|000000d0| 68 6f 77 22 29 20 61 6e | 64 20 28 63 75 72 72 53 |how") an|d (currS|
|000000e0| 74 61 74 75 73 20 3c 3e | 20 22 48 69 64 65 22 29 |tatus <>| "Hide")|
|000000f0| 20 74 68 65 6e 10 69 73 | 49 6e 69 74 65 64 20 3d | then.is|Inited =|
|00000100| 20 22 59 65 73 22 13 63 | 75 72 72 53 74 61 74 75 | "Yes".c|urrStatu|
|00000110| 73 20 3d 20 22 53 68 6f | 77 22 1f 6f 72 67 4d 42 |s = "Sho|w".orgMB|
|00000120| 61 72 48 65 69 67 68 74 | 20 3d 20 4d 65 6e 75 42 |arHeight| = MenuB|
|00000130| 61 72 4d 61 67 69 63 47 | 65 74 06 65 6e 64 20 69 |arMagicG|et.end i|
|00000140| 66 07 45 6e 64 20 53 75 | 62 0b 48 69 64 65 4d 65 |f.End Su|b.HideMe|
|00000150| 6e 75 42 61 72 00 00 00 | 08 04 08 04 0d 11 53 75 |nuBar...|......Su|
|00000160| 62 20 48 69 64 65 4d 65 | 6e 75 42 61 72 28 29 11 |b HideMe|nuBar().|
|00000170| 64 69 6d 20 72 65 74 20 | 41 73 20 53 74 72 69 6e |dim ret |As Strin|
|00000180| 67 3a 69 66 20 4e 6f 74 | 20 28 28 69 73 49 6e 69 |g:if Not| ((isIni|
|00000190| 74 65 64 20 3d 20 22 59 | 65 73 22 29 20 61 6e 64 |ted = "Y|es") and|
|000001a0| 20 28 63 75 72 72 53 74 | 61 74 75 73 20 3d 20 22 | (currSt|atus = "|
|000001b0| 53 68 6f 77 22 29 29 20 | 74 68 65 6e 04 42 65 65 |Show")) |then.Bee|
|000001c0| 70 04 65 6c 73 65 bb 01 | 72 65 74 20 3d 20 4d 65 |p.else..|ret = Me|
|000001d0| 6e 75 42 61 72 4d 61 67 | 69 63 48 69 64 65 28 6f |nuBarMag|icHide(o|
|000001e0| 72 67 4d 42 61 72 48 65 | 69 67 68 74 2c 20 53 74 |rgMBarHe|ight, St|
|000001f0| 72 28 53 63 72 65 65 6e | 28 30 29 2e 4c 65 66 74 |r(Screen|(0).Left|
|00000200| 29 2c 20 53 74 72 28 53 | 63 72 65 65 6e 28 30 29 |), Str(S|creen(0)|
|00000210| 2e 54 6f 70 29 2c 20 53 | 74 72 28 53 63 72 65 65 |.Top), S|tr(Scree|
|00000220| 6e 28 30 29 2e 57 69 64 | 74 68 29 2c 20 53 74 72 |n(0).Wid|th), Str|
|00000230| 28 53 63 72 65 65 6e 28 | 30 29 2e 48 65 69 67 68 |(Screen(|0).Heigh|
|00000240| 74 29 29 12 69 66 20 72 | 65 74 20 3c 3e 20 22 30 |t)).if r|et <> "0|
|00000250| 22 20 74 68 65 6e 04 42 | 65 65 70 04 65 6c 73 65 |" then.B|eep.else|
|00000260| 13 63 75 72 72 53 74 61 | 74 75 73 20 3d 20 22 48 |.currSta|tus = "H|
|00000270| 69 64 65 22 06 65 6e 64 | 20 69 66 06 65 6e 64 20 |ide".end| if.end |
|00000280| 69 66 07 45 6e 64 20 53 | 75 62 0b 53 68 6f 77 4d |if.End S|ub.ShowM|
|00000290| 65 6e 75 42 61 72 00 00 | 00 05 00 05 bb 01 0d 11 |enuBar..|........|
|000002a0| 53 75 62 20 53 68 6f 77 | 4d 65 6e 75 42 61 72 28 |Sub Show|MenuBar(|
|000002b0| 29 11 64 69 6d 20 72 65 | 74 20 41 73 20 53 74 72 |).dim re|t As Str|
|000002c0| 69 6e 67 3a 69 66 20 4e | 6f 74 20 28 28 69 73 49 |ing:if N|ot ((isI|
|000002d0| 6e 69 74 65 64 20 3d 20 | 22 59 65 73 22 29 20 61 |nited = |"Yes") a|
|000002e0| 6e 64 20 28 63 75 72 72 | 53 74 61 74 75 73 20 3d |nd (curr|Status =|
|000002f0| 20 22 48 69 64 65 22 29 | 29 20 74 68 65 6e 04 42 | "Hide")|) then.B|
|00000300| 65 65 70 04 65 6c 73 65 | bb 01 72 65 74 20 3d 20 |eep.else|..ret = |
|00000310| 4d 65 6e 75 42 61 72 4d | 61 67 69 63 53 68 6f 77 |MenuBarM|agicShow|
|00000320| 28 6f 72 67 4d 42 61 72 | 48 65 69 67 68 74 2c 20 |(orgMBar|Height, |
|00000330| 53 74 72 28 53 63 72 65 | 65 6e 28 30 29 2e 4c 65 |Str(Scre|en(0).Le|
|00000340| 66 74 29 2c 20 53 74 72 | 28 53 63 72 65 65 6e 28 |ft), Str|(Screen(|
|00000350| 30 29 2e 54 6f 70 29 2c | 20 53 74 72 28 53 63 72 |0).Top),| Str(Scr|
|00000360| 65 65 6e 28 30 29 2e 57 | 69 64 74 68 29 2c 20 53 |een(0).W|idth), S|
|00000370| 74 72 28 53 63 72 65 65 | 6e 28 30 29 2e 48 65 69 |tr(Scree|n(0).Hei|
|00000380| 67 68 74 29 29 12 69 66 | 20 72 65 74 20 3c 3e 20 |ght)).if| ret <> |
|00000390| 22 30 22 20 74 68 65 6e | 04 42 65 65 70 04 65 6c |"0" then|.Beep.el|
|000003a0| 73 65 13 63 75 72 72 53 | 74 61 74 75 73 20 3d 20 |se.currS|tatus = |
|000003b0| 22 53 68 6f 77 22 06 65 | 6e 64 20 69 66 06 65 6e |"Show".e|nd if.en|
|000003c0| 64 20 69 66 07 45 6e 64 | 20 53 75 62 10 51 75 69 |d if.End| Sub.Qui|
|000003d0| 74 4d 65 6e 75 42 61 72 | 4d 61 67 69 63 00 00 00 |tMenuBar|Magic...|
|000003e0| 01 11 01 11 08 16 53 75 | 62 20 51 75 69 74 4d 65 |......Su|b QuitMe|
|000003f0| 6e 75 42 61 72 4d 61 67 | 69 63 28 29 11 64 69 6d |nuBarMag|ic().dim|
|00000400| 20 72 65 74 20 41 73 20 | 53 74 72 69 6e 67 34 69 | ret As |String4i|
|00000410| 66 20 28 69 73 49 6e 69 | 74 65 64 20 3d 20 22 59 |f (isIni|ted = "Y|
|00000420| 65 73 22 29 20 61 6e 64 | 20 28 63 75 72 72 53 74 |es") and| (currSt|
|00000430| 61 74 75 73 20 3d 20 22 | 48 69 64 65 22 29 20 74 |atus = "|Hide") t|
|00000440| 68 65 6e bb 01 72 65 74 | 20 3d 20 4d 65 6e 75 42 |hen..ret| = MenuB|
|00000450| 61 72 4d 61 67 69 63 53 | 68 6f 77 28 6f 72 67 4d |arMagicS|how(orgM|
|00000460| 42 61 72 48 65 69 67 68 | 74 2c 20 53 74 72 28 53 |BarHeigh|t, Str(S|
|00000470| 63 72 65 65 6e 28 30 29 | 2e 4c 65 66 74 29 2c 20 |creen(0)|.Left), |
|00000480| 53 74 72 28 53 63 72 65 | 65 6e 28 30 29 2e 54 6f |Str(Scre|en(0).To|
|00000490| 70 29 2c 20 53 74 72 28 | 53 63 72 65 65 6e 28 30 |p), Str(|Screen(0|
|000004a0| 29 2e 57 69 64 74 68 29 | 2c 20 53 74 72 28 53 63 |).Width)|, Str(Sc|
|000004b0| 72 65 65 6e 28 30 29 2e | 48 65 69 67 68 74 29 29 |reen(0).|Height))|
|000004c0| 06 65 6e 64 20 69 66 0d | 69 73 49 6e 69 74 65 64 |.end if.|isInited|
|000004d0| 20 3d 20 22 22 0f 63 75 | 72 72 53 74 61 74 75 73 | = "".cu|rrStatus|
|000004e0| 20 3d 20 22 22 07 45 6e | 64 20 53 75 62 17 47 65 | = "".En|d Sub.Ge|
|000004f0| 74 43 75 72 72 65 6e 74 | 4d 65 6e 75 42 61 72 53 |tCurrent|MenuBarS|
|00000500| 74 61 74 75 73 00 06 53 | 74 72 69 6e 67 00 04 11 |tatus..S|tring...|
|00000510| 04 11 07 2c 46 75 6e 63 | 74 69 6f 6e 20 47 65 74 |...,Func|tion Get|
|00000520| 43 75 72 72 65 6e 74 4d | 65 6e 75 42 61 72 53 74 |CurrentM|enuBarSt|
|00000530| 61 74 75 73 28 29 20 41 | 73 20 53 74 72 69 6e 67 |atus() A|s String|
|00000540| 19 69 66 20 69 73 49 6e | 69 74 65 64 20 3c 3e 20 |.if isIn|ited <> |
|00000550| 22 59 65 73 22 20 74 68 | 65 6e 0d 72 65 74 75 72 |"Yes" th|en.retur|
|00000560| 6e 20 22 53 68 6f 77 22 | 04 65 6c 73 65 11 72 65 |n "Show"|.else.re|
|00000570| 74 75 72 6e 20 63 75 72 | 72 53 74 61 74 75 73 06 |turn cur|rStatus.|
|00000580| 65 6e 64 20 69 66 0c 45 | 6e 64 20 46 75 6e 63 74 |end if.E|nd Funct|
|00000590| 69 6f 6e 00 00 00       |                         |ion...  |        |
+--------+-------------------------+-------------------------+--------+--------+